' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/06/05 by Moi
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.2439007883739, 0.1343689109191, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.2454007412412, 0.1343689109191, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0.2446507648075, 0.13386892663, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2114918067557, 0.1465035296151, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.2057319877455, 0.1155445024352, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1999721687353, 0.05326645938727, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3896862073841, 0.07486578067557, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3752866598586, 0.07666572411626, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3614982495689, 0.07751531712381, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.36, 0.07733293565113, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3872140372171, 0.07514435797894, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3824721189274, 0.07550912092431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3844783151269, 0.08554010192185, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3774645781928, 0.2315658177593, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3510505604334, 0.2265820408236, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
' MSGBOX
' Enregistrer les modifications apportées à Sous-ensemble treuil et support - Feuille1?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Bâti.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bâti.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Bâti.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cabine.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Cabine.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Treuil et support.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Treuil et support.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Vue éclatée1", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Treuil et support.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Treuil et support.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Treuil et support.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05156731637257, -0.009936638191505, -0.02048809222302, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Treuil et support.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04446608857913, -0.000506574887595, -0.0223973705443, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue éclatée1", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Treuil et support.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05200000000001, 7.040871361141e-005, -0.02426822033991, False, 0, Nothing)
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Treuil et support.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Maquette monte-charge.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Maquette monte-charge.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
